home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
N-O
/
NCMCTCSUSER.cpt
/
NCMC-TCS user
/
card_4760.txt
< prev
next >
Wrap
Text File
|
1988-09-28
|
3KB
|
163 lines
-- card: 4760 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Days
----- HyperTalk script -----
on idle
put the time into field 4
end idle
on opencard
global lastday
put lastday into field "laston"
put the abbrev date into field "now"
end opencard
-- part 2 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=57 top=67 right=182 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=18 top=196 right=218 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract a day
----- HyperTalk script -----
on mouseUp
global port
sendSPort port,false,"-"&return
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=147 top=196 right=218 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add a day
----- HyperTalk script -----
on mouseUp
global port
sendSPort port,false,"+"&return
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=276 top=196 right=218 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's date
----- HyperTalk script -----
on mouseUp
global port
sendSPort port,false,"s"&return
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=395 top=196 right=218 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit/Done
----- HyperTalk script -----
on mouseUp
global port
sendSPort port,false,"q"&return
pop card
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part contents for background part 1
----- text -----
Sat, Jul 2, 1988, 6:53 PM
-- part contents for background part 5
----- text -----
9:00 PM
-- part contents for background part 4
----- text -----
Thu, Sep 22, 1988
-- part contents for card part 2
----- text -----
*******
Welcome, Phil Smy, from Ottawa!
Connected on 07/11/88 at 15:50:25
You have called this system 59 times.
You last called on 07/06/88 at 12:28:54
You have uploaded 1 files and have downloaded 7 files.
You have sent 17 private messages and 3 public messages.
E
[A]dd this section to global scan
-- part contents for background part 3
----- text -----
Thu, Sep 22, 1988, 9:08 AM